home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue26 / construc / HITDAYS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1997-08-21  |  1.2 KB  |  53 lines
  1. {$APPTYPE CONSOLE}
  2. {$I-}
  3. uses
  4.   SysUtils;
  5. var
  6.   f: Text;
  7.   Nu: TDateTime;
  8.   Hits: Integer;
  9. begin
  10.   writeln('Content-type: text/html');
  11.   writeln;
  12.   writeln('<HTML>');
  13.   writeln('<HEAD>');
  14.   writeln('<TITLE>Dr.Bob''s daily hit statistics</TITLE>');
  15.   writeln('</HEAD>');
  16.   writeln('<BODY>');
  17.   writeln('<H1>Dr.Bob''s HITs Counter</H1>');
  18.   writeln('<HR>');
  19.   writeln('<P>');
  20.   ShortDateFormat := 'YYYYMMDD';
  21.   Nu := Now - 100;
  22.   writeln('<TABLE BORDER>');
  23.   writeln('<TR><TD>Day</TD><TD>Hits</TD><TD></TD></TR>');
  24.   repeat
  25.     Nu := Nu + 1;
  26.     ShortDateFormat := 'YYYYMMDD';
  27.     System.Assign(f,DateToStr(Nu) + '.log');
  28.     Reset(f);
  29.     if IOResult = 0 then
  30.     begin
  31.       ShortDateFormat := 'YYYY/MM/DD';
  32.       write('<TR><TD>',DateToStr(Nu),'</TD>');
  33.       hits := 0;
  34.       while (IOResult = 0) and not eof(f) do
  35.       begin
  36.         readln(f);
  37.         Inc(hits)
  38.       end;
  39.       write('<TD>',hits,'</TD><TD>');
  40.       while hits > 0 do
  41.       begin
  42.         write('|');
  43.         Dec(hits)
  44.       end;
  45.       writeln('</TD></TR>');
  46.       Close(f)
  47.     end
  48.   until Nu >= Now;
  49.   writeln('</TABLE>');
  50.   writeln('</BODY>');
  51.   writeln('</HTML>');
  52. end.
  53.